
source("./shiny/base.R")

date <- "20171116"
s1 <- 1000000000
s2 <- 100000000
s3 <- 2000000000

fund <- get_data(dbname = "stock", dbcoll = paste("fund", date, sep = ""))
fund_need <- rbind(fund[fund$jlr < -s2,], fund[fund$jlr > s2,])
fund_jlr <- sapply(fund_need$jlr, '/', s2)
